home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3.arc / INDEXING.PRG < prev    next >
Encoding:
Text File  |  1984-10-25  |  1.4 KB  |  55 lines
  1.    ******************** Indexing COMMAND FILE  **********************
  2. * Indexes the costbase on job numbers and by supplier name.
  3. *      Since several indexes are built, this takes a bit of time.  Rather
  4. * than have the operator think that the computer is broken, we turn the
  5. * talk on so that dBASE III provides a running commentary that shows
  6. * it's working.
  7. **************************************************************************
  8. *
  9. USE Costbase
  10. GO BOTTOM
  11. Temp = STR(RECNO(),5)
  12. SET TALK ON
  13. *
  14. CLEAR
  15. @ 5,0 SAY 'Indexing ' + Temp + ' Costbase records'
  16. ? 'by JOB NUMBER to Costjobs.ndx:'
  17. ERASE Costjobs.ndx
  18. INDEX ON Job_Nmbr TO Costjobs
  19. ?
  20. ?
  21. ? 'Indexing ' + Temp + ' Costbase records'
  22. ? 'by SUPPLIER NAME to Costname.ndx:'
  23. ERASE Costname.ndx
  24. INDEX ON Name to Costname
  25. *
  26. USE Billings
  27. GO BOTTOM
  28. Temp = STR(RECNO(),5)
  29. ?
  30. ?
  31. ? 'Indexing ' + Temp + ' Billings records'
  32. ? 'by INVOICE NUMBER to Billings.ndx:'
  33. ERASE Billings.ndx
  34. INDEX ON Inv_Nmbr TO Billings
  35. ?
  36. ?
  37. ? 'Indexing ' + Temp + ' Billings records'
  38. ? 'by JOB NUMBER to Billjobs.ndx:'
  39. ERASE Billjobs.ndx
  40. INDEX ON Job_Nmbr TO Billjobs
  41. *
  42. USE Invoices
  43. GO BOTTOM
  44. Temp = STR(RECNO(),5)
  45. ?
  46. ?
  47. ? 'Indexing ' + Temp + ' Invoice records'
  48. ? 'by INVOICE NUMBER to Invoices.ndx:'
  49. ERASE Invoices.ndx
  50. INDEX ON Inv_Nmbr TO Invoices
  51. USE
  52. *
  53. SET TALK OFF
  54. RETURN
  55.